home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / CD-Player / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-20  |  7.1 KB  |  246 lines
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Begin VB.Form ShapedForm 
  4.    BorderStyle     =   0  'Kein
  5.    Caption         =   "Player"
  6.    ClientHeight    =   2955
  7.    ClientLeft      =   120
  8.    ClientTop       =   120
  9.    ClientWidth     =   4410
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   "Form2.frx":0000
  13.    ScaleHeight     =   2955
  14.    ScaleWidth      =   4410
  15.    StartUpPosition =   2  'Bildschirmmitte
  16.    Begin VB.OptionButton Option3 
  17.       Caption         =   "Option3"
  18.       Height          =   195
  19.       Left            =   3480
  20.       TabIndex        =   13
  21.       Top             =   1920
  22.       Width           =   255
  23.    End
  24.    Begin VB.OptionButton Option2 
  25.       Caption         =   "Option2"
  26.       Height          =   195
  27.       Left            =   2880
  28.       TabIndex        =   11
  29.       Top             =   2160
  30.       Width           =   255
  31.    End
  32.    Begin VB.TextBox Text1 
  33.       Height          =   225
  34.       Left            =   2040
  35.       TabIndex        =   8
  36.       Text            =   "1"
  37.       Top             =   1800
  38.       Width           =   735
  39.    End
  40.    Begin MP3Player.AXMarquee AXMarquee2 
  41.       Height          =   690
  42.       Left            =   360
  43.       TabIndex        =   4
  44.       Top             =   840
  45.       Width           =   3975
  46.       _extentx        =   7011
  47.       _extenty        =   1217
  48.       text            =   "Programmiert von Loreno Heer     Borgs best Player"
  49.    End
  50.    Begin MP3Player.AXMarquee AXMarquee1 
  51.       Height          =   690
  52.       Left            =   360
  53.       TabIndex        =   3
  54.       Top             =   240
  55.       Width           =   3975
  56.       _extentx        =   7011
  57.       _extenty        =   1217
  58.       text            =   "Borgs best Player Programmiert von Loreno Heer"
  59.    End
  60.    Begin MSComCtl2.FlatScrollBar FlatScrollBar1 
  61.       Height          =   855
  62.       Left            =   360
  63.       TabIndex        =   6
  64.       Top             =   1560
  65.       Width           =   135
  66.       _ExtentX        =   238
  67.       _ExtentY        =   1508
  68.       _Version        =   393216
  69.       Appearance      =   2
  70.       Orientation     =   8323072
  71.    End
  72.    Begin VB.OptionButton Option1 
  73.       Caption         =   "Option1"
  74.       Height          =   195
  75.       Left            =   2040
  76.       TabIndex        =   15
  77.       Top             =   2160
  78.       Width           =   255
  79.    End
  80.    Begin VB.Label Label7 
  81.       AutoSize        =   -1  'True
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Alle"
  84.       Height          =   195
  85.       Left            =   1680
  86.       TabIndex        =   10
  87.       Top             =   2160
  88.       Width           =   255
  89.    End
  90.    Begin VB.Label Label9 
  91.       AutoSize        =   -1  'True
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Shuffle"
  94.       Height          =   195
  95.       Left            =   2880
  96.       TabIndex        =   14
  97.       Top             =   1920
  98.       Width           =   495
  99.    End
  100.    Begin VB.Label Label8 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "Einzeln"
  104.       Height          =   195
  105.       Left            =   2280
  106.       TabIndex        =   12
  107.       Top             =   2160
  108.       Width           =   510
  109.    End
  110.    Begin VB.Label Label6 
  111.       AutoSize        =   -1  'True
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Track:"
  114.       Height          =   195
  115.       Left            =   1560
  116.       TabIndex        =   9
  117.       Top             =   1800
  118.       Width           =   465
  119.    End
  120.    Begin VB.Line Line1 
  121.       X1              =   1560
  122.       X2              =   4080
  123.       Y1              =   1800
  124.       Y2              =   1800
  125.    End
  126.    Begin VB.Label Label5 
  127.       AutoSize        =   -1  'True
  128.       BackStyle       =   0  'Transparent
  129.       Caption         =   "CD-Player"
  130.       Height          =   195
  131.       Left            =   1560
  132.       TabIndex        =   7
  133.       Top             =   1560
  134.       Width           =   705
  135.    End
  136.    Begin VB.Image Image4 
  137.       Height          =   210
  138.       Left            =   1200
  139.       Picture         =   "Form2.frx":2981A
  140.       Top             =   2040
  141.       Width           =   315
  142.    End
  143.    Begin VB.Image Image3 
  144.       Height          =   210
  145.       Left            =   720
  146.       Picture         =   "Form2.frx":29BDC
  147.       Top             =   2040
  148.       Width           =   315
  149.    End
  150.    Begin VB.Image Image2 
  151.       Height          =   210
  152.       Left            =   1200
  153.       Picture         =   "Form2.frx":29F9E
  154.       Top             =   1680
  155.       Width           =   315
  156.    End
  157.    Begin VB.Image Image1 
  158.       Height          =   210
  159.       Left            =   720
  160.       Picture         =   "Form2.frx":2A360
  161.       Top             =   1680
  162.       Width           =   315
  163.    End
  164.    Begin VB.Label Label4 
  165.       BackStyle       =   0  'Transparent
  166.       Height          =   255
  167.       Left            =   120
  168.       TabIndex        =   5
  169.       Top             =   2520
  170.       Width           =   4095
  171.    End
  172.    Begin VB.Label Label3 
  173.       BackStyle       =   0  'Transparent
  174.       Height          =   255
  175.       Left            =   3720
  176.       TabIndex        =   2
  177.       Top             =   0
  178.       Width           =   135
  179.    End
  180.    Begin VB.Label Label2 
  181.       BackStyle       =   0  'Transparent
  182.       Height          =   255
  183.       Left            =   3960
  184.       TabIndex        =   1
  185.       Top             =   0
  186.       Width           =   255
  187.    End
  188.    Begin VB.Label Label1 
  189.       BackStyle       =   0  'Transparent
  190.       Height          =   255
  191.       Left            =   0
  192.       TabIndex        =   0
  193.       Top             =   0
  194.       Width           =   4215
  195.    End
  196. Attribute VB_Name = "ShapedForm"
  197. Attribute VB_GlobalNameSpace = False
  198. Attribute VB_Creatable = False
  199. Attribute VB_PredeclaredId = True
  200. Attribute VB_Exposed = False
  201. Private Sub Form_Load()
  202. Me.AXMarquee1.Scrolling = True
  203. MenuForm.Hide
  204. End Sub
  205. Private Sub Image1_Click()
  206. If Me.Option1.Value = True Then
  207. Module2.playCdFull
  208. ElseIf Me.Option2.Value = True Then
  209. Module2.playCdTrack (Me.Text1.Text)
  210. ElseIf Me.Option3.Value = True Then
  211. Module2.playCdShuffle
  212. End If
  213. End Sub
  214. Private Sub Image2_Click()
  215. If MenuForm.Text1.Text = "1" Then
  216.     Module2.DeMute
  217.     MenuForm.Text1.Text = 0
  218.     Module2.mute
  219.     MenuForm.Text1.Text = 1
  220. End If
  221. End Sub
  222. Private Sub Image3_Click()
  223. Module2.stopCd
  224. End Sub
  225. Private Sub Image4_Click()
  226. If Me.AXMarquee2.Text = "CD Door open" Then
  227. Module2.doorClose
  228. Me.AXMarquee2.Text = ""
  229. Me.AXMarquee2.Scrolling = False
  230. Me.AXMarquee2.Text = "CD Door open"
  231. Me.AXMarquee2.Scrolling = True
  232. Module2.doorOpen
  233. End If
  234. End Sub
  235. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  236. ReleaseCapture
  237. SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  238. End Sub
  239. Private Sub Label2_Click()
  240. Unload MenuForm
  241. Unload Me
  242. End Sub
  243. Private Sub Label3_Click()
  244. ShapedForm.WindowState = 1
  245. End Sub
  246.